'==================================================================================================
'	Author		David Segura
'	URL			http://winpeguy.com/
'	Source		http://winpe.codeplex.com/
'	Version		20130910
'==================================================================================================
'	Purpose:
'	Launches BGInfo
'==================================================================================================
'	File Locations in Windows:
'	%DeployRoot%\Boot\+WinPE\Menu\Scripts\BGInfo.vbs
'==================================================================================================
'	File Location in WinPE:
'	X:\Menu\Scripts\BGInfo.vbs
'==================================================================================================
'	Configuration:
'	None.  Editing this file is not recommended
'==================================================================================================
'	Change Log:
'	20130910	Codeplex Beta
'==================================================================================================
	Sub subBGInfo
	'Checks for BGInfo and executes
	'Priority is given to the BGInfo.bgi file in the Menu directory
		If objFSO.FileExists(envSystem32 & "\bginfo.exe") and objFSO.FileExists(strMenuDir & "\bginfo.bgi") Then
			sCmd = "bginfo " & strMenuDir & "\bginfo.bgi  /TIMER:0 /NOLICPROMPT"
			objShell.Run sCmd, 1, True
		ElseIf objFSO.FileExists(envSystem32 & "\bginfo.exe") and objFSO.FileExists(envSystem32 & "\bginfo.bgi") Then
			sCmd = "bginfo " & envSystem32 & "\bginfo.bgi  /TIMER:0 /NOLICPROMPT"
			objShell.Run sCmd, 1, True
		ElseIf objFSO.FileExists(envSystem32 & "\bginfo64.exe") and objFSO.FileExists(strMenuDir & "\bginfo.bgi") Then
			sCmd = "bginfo64 " & strMenuDir & "\bginfo.bgi  /TIMER:0 /NOLICPROMPT"
			objShell.Run sCmd, 1, True
		ElseIf objFSO.FileExists(envSystem32 & "\bginfo64.exe") and objFSO.FileExists(envSystem32 & "\bginfo.bgi") Then
			sCmd = "bginfo64 " & envSystem32 & "\bginfo.bgi  /TIMER:0 /NOLICPROMPT"
			objShell.Run sCmd, 1, True
		End If
	End Sub